From: Glenn Morris <rgm@gnu.org>
Date: Mon, 1 Nov 2010 01:38:04 +0000 (-0700)
Subject: Silence sieve-manage.el compilation.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~324^2~5865
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=64b3194dae175bf8c710e91885bdbb66142d430a;p=emacs.git

Silence sieve-manage.el compilation.
* lisp/gnus/sieve-manage.el: Require 'cl when compiling, for caddr.
---

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index c2d6fc1107b..d353aed697c 100644
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,5 +1,7 @@
 2010-11-01  Glenn Morris  <rgm@gnu.org>
 
+	* sieve-manage.el: Require 'cl when compiling.
+
 	* gnus-util.el (iswitchb-read-buffer): Declare rather than autoload.
 	(gnus-iswitchb-completing-read): Require iswitchb.
 	(gnus-select-frame-set-input-focus): Silence compiler.
diff --git a/lisp/gnus/sieve-manage.el b/lisp/gnus/sieve-manage.el
index 5b5439fab73..a3647061d15 100644
--- a/lisp/gnus/sieve-manage.el
+++ b/lisp/gnus/sieve-manage.el
@@ -1,7 +1,7 @@
 ;;; sieve-manage.el --- Implementation of the managesive protocol in elisp
 
-;; Copyright (C) 2001, 2002, 2003, 2004, 2005, 2006, 2007,
-;;   2008, 2009, 2010  Free Software Foundation, Inc.
+;; Copyright (C) 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009,
+;;   2010  Free Software Foundation, Inc.
 
 ;; Author: Simon Josefsson <simon@josefsson.org>
 
@@ -79,6 +79,7 @@
   (require 'password))
 
 (eval-when-compile
+  (require 'cl)				; caddr
   (require 'sasl)
   (require 'starttls))
 (autoload 'sasl-find-mechanism "sasl")